home *** CD-ROM | disk | FTP | other *** search
/ Clickx 115 / Clickx 115.iso / software / tools / windows / tails-i386-0.16.iso / live / filesystem.squashfs / usr / share / uim / generic-key-custom.scm < prev    next >
Encoding:
Text File  |  2010-11-07  |  5.5 KB  |  155 lines
  1. ;;; generic-key-custom.scm: Customization variables for generic key bindings
  2. ;;;
  3. ;;; Copyright (c) 2003-2009 uim Project http://code.google.com/p/uim/
  4. ;;;
  5. ;;; All rights reserved.
  6. ;;;
  7. ;;; Redistribution and use in source and binary forms, with or without
  8. ;;; modification, are permitted provided that the following conditions
  9. ;;; are met:
  10. ;;; 1. Redistributions of source code must retain the above copyright
  11. ;;;    notice, this list of conditions and the following disclaimer.
  12. ;;; 2. Redistributions in binary form must reproduce the above copyright
  13. ;;;    notice, this list of conditions and the following disclaimer in the
  14. ;;;    documentation and/or other materials provided with the distribution.
  15. ;;; 3. Neither the name of authors nor the names of its contributors
  16. ;;;    may be used to endorse or promote products derived from this software
  17. ;;;    without specific prior written permission.
  18. ;;;
  19. ;;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS'' AND
  20. ;;; ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  21. ;;; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  22. ;;; ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE
  23. ;;; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  24. ;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  25. ;;; OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  26. ;;; HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  27. ;;; LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  28. ;;; OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  29. ;;; SUCH DAMAGE.
  30. ;;;;
  31.  
  32. (require "i18n.scm")
  33.  
  34.  
  35. (define-custom-group 'global-keys1
  36.              (N_ "Global key bindings 1")
  37.              (N_ "long description will be here."))
  38.  
  39. (define-custom-group 'global-keys2
  40.              (N_ "Global key bindings 2")
  41.              (N_ "long description will be here."))
  42.  
  43.  
  44. (define-custom 'generic-on-key '("zenkaku-hankaku" "<Shift> ")
  45.                '(global-keys1)
  46.            '(key)
  47.            (N_ "[Global] on")
  48.            (N_ "long description will be here"))
  49.  
  50. (define-custom 'generic-off-key '("zenkaku-hankaku" "<Shift> ")
  51.                '(global-keys1)
  52.            '(key)
  53.            (N_ "[Global] off")
  54.            (N_ "long description will be here"))
  55.  
  56. (define-custom 'generic-begin-conv-key '(" ")
  57.                '(global-keys1)
  58.            '(key)
  59.            (N_ "[Global] begin conversion")
  60.            (N_ "long description will be here"))
  61.  
  62. (define-custom 'generic-commit-key '("<IgnoreCase><Control>j" generic-return-key)
  63.                '(global-keys1)
  64.            '(key)
  65.            (N_ "[Global] commit")
  66.            (N_ "long description will be here"))
  67.  
  68. (define-custom 'generic-cancel-key '("escape" "<Control>[" "<IgnoreCase><Control>g")
  69.                '(global-keys1)
  70.            '(key)
  71.            (N_ "[Global] cancel")
  72.            (N_ "long description will be here"))
  73.  
  74. (define-custom 'generic-next-candidate-key '(" " "down" "<IgnoreCase><Control>n")
  75.                '(global-keys1)
  76.            '(key)
  77.            (N_ "[Global] next candidate")
  78.            (N_ "long description will be here"))
  79.  
  80. (define-custom 'generic-prev-candidate-key '("up" "<IgnoreCase><Control>p")
  81.                '(global-keys1)
  82.            '(key)
  83.            (N_ "[Global] previous candidate")
  84.            (N_ "long description will be here"))
  85.  
  86. (define-custom 'generic-next-page-key '("next")
  87.                '(global-keys1)
  88.            '(key)
  89.            (N_ "[Global] next page of candidate window")
  90.            (N_ "long description will be here"))
  91.  
  92. (define-custom 'generic-prev-page-key '("prior")
  93.                '(global-keys1)
  94.            '(key)
  95.            (N_ "[Global] previous page of candidate window")
  96.            (N_ "long description will be here"))
  97.  
  98. ;;
  99. ;; advanced
  100. ;;
  101.  
  102. (define-custom 'generic-beginning-of-preedit-key '("home" "<IgnoreCase><Control>a")
  103.                '(global-keys2)
  104.            '(key)
  105.            (N_ "[Global] beginning of preedit")
  106.            (N_ "long description will be here"))
  107.  
  108. (define-custom 'generic-end-of-preedit-key '("end" "<IgnoreCase><Control>e")
  109.                '(global-keys2)
  110.            '(key)
  111.            (N_ "[Global] end of preedit")
  112.            (N_ "long description will be here"))
  113.  
  114. (define-custom 'generic-kill-key '("<IgnoreCase><Control>k")
  115.                '(global-keys2)
  116.            '(key)
  117.            (N_ "[Global] erase after cursor")
  118.            (N_ "long description will be here"))
  119.  
  120. (define-custom 'generic-kill-backward-key '("<IgnoreCase><Control>u")
  121.                '(global-keys2)
  122.            '(key)
  123.            (N_ "[Global] erase before cursor")
  124.            (N_ "long description will be here"))
  125.  
  126. (define-custom 'generic-backspace-key '("backspace" "<IgnoreCase><Control>h")
  127.                '(global-keys2)
  128.            '(key)
  129.            (N_ "[Global] backspace")
  130.            (N_ "long description will be here"))
  131.  
  132. (define-custom 'generic-delete-key '("delete" "<IgnoreCase><Control>d")
  133.                '(global-keys2)
  134.            '(key)
  135.            (N_ "[Global] delete")
  136.            (N_ "long description will be here"))
  137.  
  138. (define-custom 'generic-go-left-key '("left" "<IgnoreCase><Control>b")
  139.                '(global-keys2)
  140.            '(key)
  141.            (N_ "[Global] go left")
  142.            (N_ "long description will be here"))
  143.  
  144. (define-custom 'generic-go-right-key '("right" "<IgnoreCase><Control>f")
  145.                '(global-keys2)
  146.            '(key)
  147.            (N_ "[Global] go right")
  148.            (N_ "long description will be here"))
  149.  
  150. (define-custom 'generic-return-key '("return" "<IgnoreCase><Control>m")
  151.                '(global-keys2)
  152.            '(key)
  153.            (N_ "[Global] return")
  154.            (N_ "long description will be here"))
  155.